home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 24
/
AACD 24.iso
/
AACD
/
Programming
/
Emperor4.1
/
Emperor
/
Scripts
/
stormc.rexx
Wrap
OS/2 REXX Batch file
|
2001-07-16
|
1KB
|
42 lines
/* $VER: Emperor_StormC.script 4.1 (16.07.2001) */
/* written anno 2000-2001 by Matthias Gietzelt */
/* Script to: */
/* + open */
/* + compile */
/* + debug */
/* + run a program by CLI */
/* + run a program by StormC */
PARSE ARG mode file
/* defined procedures */
open_project = 0
compile_project = 1
debug_project = 2
execute_by_CLI = 3
execute_by_StormRun = 4
if show('P', "STORMSHELL") then do
if mode = open_project then do
address stormshell 'OPEN ' || file || ".¶ "
end
if mode = compile_project then do
address stormshell 'MAKE'
end
if mode = debug_project then do
address stormshell 'DEBUG FILE ' || file || ".c"
end
if mode = execute_by_CLI then do
address command "Run >NIL: " || file
end
if mode = execute_by_StormRun then do
address stormrun 'RUN ' || file
end
end
exit